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vat Page 
ACLEDT.SRC SE TSHOACL .B 2;1 ( 


1 0001 0 MODULE SETSHOACL ( 
; Oe LANGUAGE (BL I $32), 
0 IDENT = ‘v04-000' 
4 004 ADDRESSING MODE (EXTERNAL = GENERAL), 
5 0005 8 ws = UTL_DISPATCH 
6 Bone 
7? 0007 1 BEGIN 
8 0008 1 
9 0009 1 NH eeeee reer ered area eRe eAR EERE E HATHA HE ATA HHE REA AAAHERERAREREHEREREERERE EEE 
10 0010 1 !# 
11 0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 : 
\¢ Baie 1 '® DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. * 
+ Bale : ye ALL RIGHTS RESERVED * 
it ® 
15 0015 1 !* THIS SOFTWARE as FURNISHED 7 moee A LICENSE AND MAY BE USED AND copiee * 
16 0016 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
17 0017 1 !* INCLUSION OF TE ABOVE sorrel ent NOTICE. THIS SOFTWARE OR ANY OTHER * 
18 0018 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
19 0019 1 !* OTHER PERSON. NO TITLE TO pH OWNERSHIP OF THE SOFTWARE IS HEREBY * 
$9 Bose : .* TRANSFERRED. * 
i‘ ® 
$$ B05§ 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
2 00 1 != AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$¢ oose : « CORPORATION. * 
it ® 
26 $036 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
27 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
28 0028 1 !* * 
29 0029 1! * 
30 0030 1 See RRR EERE AERA REAR AAA AEE REAR EERE ARETE EAE REAREREREEEE 
31 0031 1 
3 te 1 4+ 
3 0033 1! intp 
34 0034 1! FACILITY: SET and SHOW utilities 
35 0035 1! 
$9 0036 1 ! ABSTRACT: 
7 0037 1! 
38 0038 1! This module contains all the + + pana necessary to support the 
39 0039 1! DCL commandsSET ACL and SHOW ACL 
40 00460 1! 
41 0041 1 ! ENVIRONMENT: 
42 0042 1! ‘ 
45 00435 1! VAX/VMS operating system, user mode utilities. 
44 0044 1! 
45 0045 1 !== 
46 0046 1! 
47 0047 1! 
4& 0048 1 ! AUTHOR: L. Mark Pilant CREATION DATE: 19-Mar-1984 
49 0049 1! 
50 0050 1 ! MODIFIED BY: 
51 0051 1! 
52 opes 1 !ee 
53 0053 1 
54 0054 1 LIBRARY ‘SYSS$LIBRARY:LIB'; 
55 0055 «(1 
56 0056 1 FORWARD ROUTINE 
57 0057 1 UTL_DISPATCH; ! Dispatch on command verb 
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ROUTINE UTL_DISPATCH = 
'e¢ 

1 

i FUNCTIONAL DESCRIPTION: 


' 

! 

! This routine obtains the DCL command verd used to invoke this image. 
: It themn calls the necessary routine to perform the desired action. 
i 


BEGIN 


LOCAL 
CMD_VERB : $BBLOCK CDSC$C_S_BLNI; 


EXTERNAL ROUTINE 


CL ieee t VALUE, 
SET_ACL; ! Modify an object's ACL 
SHOW_ACL; ' Display an o ject® s ACL 


! Initialize local storage. 


CHSFILL (0, DSC$C_S_ BLN, CMD VERB); 
CMD_VERBLDSC$B_CLASS] = DSCSR_CLASS_D; 


! Determine the DCL verb used to activate this image. 
CLISGET_VALUE (SDESCRIPTOR (*S$VERB'), CMD_VERB 
IF CHSEQL (.CMD_VERBCDSCS$W_LENGTH], .CMD_VER RECDSCSA POINTER] 
“ain “(.CMD_VERBIDSC$W_LENGTHJ; ECHARCOUNT. « EF DS, UPLIT ("SET"), 


0) 
THEN RETURN SET_ACL () 
ELSE RETURN SHO@_ACL (); 


END; 


! Descr for command verb 


End of routine UTL_DISPATCH 


TITLE SETSHOACL 
IDENT \V04-000\ 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


42 52 45 56 24 G0000 P.AAB: .ASCII \S$VERB\ : 
00005 -—BLKB 3 

00000005 00008 P.AAA: .LONG 5 3 

00000000' 0600C ADDRESS P.AAB 5 

00 54 45 53 00010 P.AAC: .ASCII \SET\<0> 3 


-EXTRN CLISGET_VALUE, SET_ACL 
-EXTRN SHOW_ACE 


.PSECT SCODES,NOWRT,2 
003C 00000 UTL_DISPATCH: 
WORD Save R2,R3,R4,R5 ; 0058 
SE 08 C2 00002 $uBL2 #8, SP : 


samc 


; Routine Size: 


95 
96 
97 


08 


50 


Name 


SPLITS 
SCODES 


File 


66 bytes, 


0094 
0095 


00 6E 
03 AE 
000000006 98 

03 

50 

00 04 «BE 


000000006 00 
000000006 00 


1 END 
0096 0 ELUDOM 


PSECT SUMMARY 


Bytes 


Routine Base: 


0000" 


0000° 


SCODES + 0000 


20 NOVEC.NOWRT, 
66 NOVEC,NOWRT, 


Library Statistics 


~$255$DUA28: CSYSLIBILIB.L32;1 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SETSHOACL/OBJ=OBJ$:SETSHOACL MSRC$:SETSHOACL /UPDATE=(ENH$: SETSHOACL ) 


Total 
18619 


fF 3 
16-Sep-1984 0 AX-11 Bliss-32 V4.0-74 
14-Sep P= 1986 ¢ 99: 96: 9? ACLEDT.SRCJSETSHOACL.832;1 
00 2c $803 MOVCS #0, (SP), #0, #8, CMD_VERB 
o9 90 00008 vB #2, CMD_VERB+3 
E go OOOF PUSHL SP 
F F 00011 PUSHAB P.AAA 
2 FB 00015 CALLS #2, CLISGET_VALUE 
: 3C 0001C MOVZ2WL CMO_VERB, RO 
° QO0TF CMPW RO, 
8 8 B08 2 BLEQU 
DO 00024 OVL #3, RO 
oF 2D 090 : 1$: CMPCS CMD_VERB, @CMD_VERB+4, #0, RO, P.AAC 
68 12 000350 BNEQ 2$ 
00 FB 00032 CALLS #0, SET_ACL 
04 00039 RET 
00 FB O003A 2$: CALLS #0, SHOW_ACL 
04 00041 ET 
Attributes 
RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Symbols -------- Pages Processing 
Loaded Percent Mapped Time 
7 1000 00:01.8 


COMMAND QUALIFIERS 


Page 


3 
(2) 


0081 
0082 
0086 


0088 


0087 


0090 
0091 


0093 


<w 


3 
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; Size: 66 code + 20 data bytes 
; ne: 00:6 


; Lexemes/CPU-Min: 5516 
; Used: 52 pages 


: Lines/CPU Min: 1600 
3 r 
; Compilation Complete 
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